home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / MacApp Documentation / MacApp AppleLink Messages / MacApp.Tech$ 3⁄16⁄90 / 0894-Re Headerprinting-Mar90 < prev    next >
Encoding:
Text File  |  1990-03-16  |  1.1 KB  |  36 lines  |  [TEXT/GEOL]
  1. Item    2600785                         15-March-90        07:40PST
  2.  
  3. From:   AUST0134                        Jam Software Sydney,IVR
  4.  
  5. To:     AU0008                          Austria - Kopfwerk,IDV
  6.  
  7. cc:     MACAPP.TECH$                    MacApp Technical
  8.  
  9. Sub:    Re Headerprinting
  10.  
  11. Dear Tommi,
  12.  
  13. The suppression (or changing) of headers and footers can be done by looking the
  14. strip being printed.  For example, if you want headers and footers on top and
  15. bottom pages respectively, you could do something like (please note this code
  16. has never been tried, it was just concocted late at night - is there any other
  17. time? )
  18.  
  19. PROCEDURE TSpecPrintHandler.AdornPage;   OVERRIDE;
  20. VAR
  21.     strip:  Point;
  22. BEGIN
  23.    INHERITED AdornPage;         { draw frames in debugging mode }
  24.    strip := PageToStrip(fFocusedPage);
  25.    IF strip.v := 0 THEN { 0-based }
  26.       fHeaderView.DrawContents    { please draw my header }
  27.    ELSE IF strip.v := fPageStrips.h - 1 THEN { I think fPageStrips is 1-based }
  28.       fFooterView.DrawContents;   { please draw my footer }
  29. END;
  30.  
  31. Yours Down Under,
  32.  
  33. Tseung Cheung
  34. AUST0134
  35.  
  36.